home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / ma22#2 / example1.03 next >
Encoding:
Text File  |  1991-08-21  |  936 b   |  49 lines
  1. *
  2. * Sample source file for the Motorola 6803
  3. *
  4. * (this program does not do anything, it is only an example)
  5. *
  6.     title   Sample source file
  7. *
  8. * Definitions
  9. *
  10. cr      equ     $0d     ;carriage return
  11. lf      equ     10      ;line feed
  12. RAM:    equ     $2000   ;memory start
  13. ppi0    equ     $8000   ;ppi 0
  14. crppi0  equ     ppi0+1  ;control register
  15. srppi0  equ     ppi0+2  ;status register
  16. flag    equ     123     ;flag bit
  17. offset  set     0
  18. *
  19. * Variables
  20. *
  21.     org     RAM     ;variables
  22. key     rmb     16      ;key buffer
  23. table   rmb     2+3*$10 ;address table
  24. loop1:
  25. offset  set     9
  26. *
  27. * Program
  28. *
  29.     ldaa    #'*'
  30.     clrb
  31.     psha
  32.     ldab    messg1+offset
  33.     oraa    #flag
  34.     ldab    #10
  35.     jsr     delay
  36.     bra     loop1
  37. *
  38. * Delay routine
  39. *
  40. delay:  decb
  41.     rts
  42. *
  43. * Dummy data
  44. *
  45. routines fdb $1234,$f800,0 ;routine addresses
  46. messg1  fcc     cr,lf,'String no 1.',0
  47. messg2  fcb     cr,lf,lf,'Press a key.',0
  48.     end
  49.